home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / eiyoukei / gdump.bas < prev    next >
BASIC Source File  |  1994-06-01  |  574b  |  19 lines
  1. 100 'SAVE "GDUMP.BAS",A
  2. 110 '        V2.2                  94.02.03
  3. 120 '
  4. 130 OPEN "GUNBETU.DAT" FOR INPUT AS #1
  5. 140 C6=7:CLS:CONSOLE C6,15,0:COLOR 7
  6. 150 LOCATE 0,0
  7. 160 FOR I=1 TO 5:LINE INPUT #1,A$:PRINT A$;
  8. 170 IF I<5 THEN PRINT 
  9. 180 NEXT I
  10. 190 PRINT
  11. 200 PRINT  "0         1        2         3         4         5         6        " 
  12. 210 PRINT "12345678901234567890123456789012345678901234567890123456789012345678"; 
  13. 220 LOCATE 0,C6
  14. 230 WHILE NOT EOF(1)
  15. 240 LINE INPUT #1,A$:PRINT A$
  16. 250 X$=INKEY$:IF X$="" THEN 250
  17. 260 WEND
  18. 270 CLOSE:RUN "MENUFDMP.BAS"
  19.